function[resultados_cohe]=tabla_resultados_cohe
principio='D:\proyecto\escritores\BD100escritores\';
for escritor=1:100
    datos=[];
    datos2=zeros(1,10);
    for t=1:10
        for w=1:34
            direccion1=strcat(strcat(principio,num2str(escritor)),'\NORMAL\',strcat('muestra',num2str(t)),strcat('\p',num2str(w)),'.bmp');
            xbin=binarizacion(direccion1);
            [separacion]=cohesion(xbin);
            if isempty(separacion)==0
                datos=[datos separacion];
            end
        end
         
        datos2(1,t)=mean(datos(1,:));
        
        datos=[];
    end
    resultados_cohe{1,escritor}=datos2;
    datos2=zeros(1,10);
end   
save 'res_cohe.mat' resultados_cohe